home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / x / volume6 / xdvi / patch8 < prev    next >
Encoding:
Internet Message Format  |  1990-03-26  |  53.5 KB
  1. Path: uunet!cs.utexas.edu!usc!brutus.cs.uiuc.edu!lll-winken!sun-barr!newstop!sun!guinness.ias.edu
  2. From: vojta@guinness.ias.edu (Paul A Vojta)
  3. Newsgroups: comp.sources.x
  4. Subject: REPOST: v06i049: xdvi, Patch8
  5. Message-ID: <133464@sun.Eng.Sun.COM>
  6. Date: 26 Mar 90 19:52:47 GMT
  7. Sender: news@sun.Eng.Sun.COM
  8. Lines: 1811
  9. Approved: argv@sun.com
  10.  
  11. [ Moderator's Note:
  12.   The previous patch sent out was incorrect.  A later submission
  13.   obsoleted the previous patch altho there are few changes.
  14.   Please use *THIS* file, not the previous one, as Patch #8.
  15.   For some reason, I have been unable to cancel the previous
  16.   article.  If someone has a "sneaky" way to do that, please advise. 
  17. ]
  18.  
  19. Submitted-by: vojta@guinness.ias.edu (Paul A Vojta)
  20. Posting-number: Volume 6, Issue 49
  21. Archive-name: xdvi/patch8
  22. Patch-To: xdvi: Volume 3, Issues 37-39
  23. Patch-To: Volume 4, Issue 44 (xdvi, Patch4)
  24. Patch-To: Volume 4, Issue 96 (xdvi, dvi previewer, Patch5)
  25. Patch-To: Volume 5, Issue 35 (xdvi, dvi previewer, patch 6, part 1/2)
  26. Patch-To: Volume 5, Issue 36 (xdvi, dvi previewer, patch 6, part 2/2)
  27. Patch-To: Volume 6, Issue  5 (xdvi, Patch7)
  28.  
  29. Here is patch level 8 for xdvi.  It can now be compiled under VMS (many
  30. thanks to Scott.Allendorf@CERES.Physics.UIowa.Edu for assistance)
  31. and it is now compatible with X11R4.
  32.  
  33. Plus the usual round of bug fixes; for these I owe thanks to:
  34.     casey@gauss.llnl.gov (Casey Leedom)
  35.     David Burgess <dhb%maths.qmw.ac.uk@NSFNET-RELAY.AC.UK>
  36. and    Peter Lamb (iis!prl)
  37.  
  38. IMPORTANT NOTE:  at this stage you should do the following:
  39. IMPORTANT NOTE:      mv xdvi.man.sed xdvi_man.sed
  40. IMPORTANT NOTE:  This is necessary for VMS compatibility.
  41. -- cut here --
  42. diff -cr old/Imakefile new/Imakefile
  43. *** old/Imakefile    Sun Mar 25 21:21:31 1990
  44. --- new/Imakefile    Fri Mar 16 20:59:09 1990
  45. ***************
  46. *** 7,13 ****
  47.   FONTFORMATS_C=gf.c pk.c pxl.c
  48.   FONTFORMATS_O=gf.o pk.o pxl.o
  49.   
  50. ! LOCAL_LIBRARIES=$(XAWLIB) $(XMULIB) $(XTOOLLIB) $(XLIB) -lm
  51.   SRCS=xdvi.c dvi_init.c dvi_draw.c $(FONTFORMATS_C) pxl_open.c tpic.c
  52.   OBJS=xdvi.o dvi_init.o dvi_draw.o $(FONTFORMATS_O) pxl_open.o tpic.o
  53.   
  54. --- 7,16 ----
  55.   FONTFORMATS_C=gf.c pk.c pxl.c
  56.   FONTFORMATS_O=gf.o pk.o pxl.o
  57.   
  58. ! DEPLIBS=XawClientDepLibs
  59. ! LOCAL_LIBRARIES=XawClientLibs
  60. ! MATHLIB=-lm
  61. ! SYS_LIBRARIES=$(MATHLIB)
  62.   SRCS=xdvi.c dvi_init.c dvi_draw.c $(FONTFORMATS_C) pxl_open.c tpic.c
  63.   OBJS=xdvi.o dvi_init.o dvi_draw.o $(FONTFORMATS_O) pxl_open.o tpic.o
  64.   
  65. ***************
  66. *** 16,26 ****
  67.   pxl_open.o:
  68.       $(CC) -c $(CFLAGS) $(FONTDEFINES) pxl_open.c
  69.   
  70. ! xdvi.man: xdvi.man.sed
  71.       chmod u+x mksedscript
  72.       mksedscript $(DEFAULT_FONT_PATH) $(DEFAULT_FONT_SIZES) $(DEFINES) \
  73.           > sedscript
  74. !     sed -f sedscript < xdvi.man.sed > xdvi.man
  75.   
  76.   clean::
  77.       $(RM) sedscript xdvi.man xdvi10.man.s
  78. --- 19,29 ----
  79.   pxl_open.o:
  80.       $(CC) -c $(CFLAGS) $(FONTDEFINES) pxl_open.c
  81.   
  82. ! xdvi.man: xdvi_man.sed
  83.       chmod u+x mksedscript
  84.       mksedscript $(DEFAULT_FONT_PATH) $(DEFAULT_FONT_SIZES) $(DEFINES) \
  85.           > sedscript
  86. !     sed -f sedscript < xdvi_man.sed > xdvi.man
  87.   
  88.   clean::
  89.       $(RM) sedscript xdvi.man xdvi10.man.s
  90. diff -cr old/MAKE_VMS.COM new/MAKE_VMS.COM
  91. *** old/MAKE_VMS.COM    Sun Mar 25 21:22:19 1990
  92. --- new/MAKE_VMS.COM    Sun Mar 11 21:54:42 1990
  93. ***************
  94. *** 0 ****
  95. --- 1,14 ----
  96. + $ DEFINE X11 DECW$INCLUDE 
  97. + $ DEFINE SYS SYS$LIBRARY
  98. + $ CC /DEFINE = (BMLONG, NOTOOL) DVI_INIT
  99. + $ CC /DEFINE = (BMLONG, NOTOOL) DVI_DRAW
  100. + $ CC /DEFINE = (BMLONG, NOTOOL) GF
  101. + $ CC /DEFINE = (BMLONG, NOTOOL) PK
  102. + $ CC /DEFINE = (BMLONG, NOTOOL) PXL
  103. + $ CC /DEFINE = (BMLONG, NOTOOL, -
  104. +      "DEFAULT_FONT_PATH=""TEX$FONTS""", -
  105. +      "DEFAULT_FONT_SIZES=""300/328.6/360/432/518.4/622/746.4""") PXL_OPEN
  106. + $ CC /DEFINE = (BMLONG, NOTOOL) TPIC
  107. + $ CC /DEFINE = (BMLONG, NOTOOL) XDVI
  108. + $ LINK XDVI, DVI_INIT, DVI_DRAW, GF, PK, PXL, PXL_OPEN, TPIC, VMS_C.OPT /OPTION
  109. + $ EXIT
  110. diff -cr old/Makefile new/Makefile
  111. *** old/Makefile    Sun Mar 25 21:21:32 1990
  112. --- new/Makefile    Sun Mar 25 21:23:52 1990
  113. ***************
  114. *** 7,29 ****
  115.   DEFAULT_FONT_PATH=/usr/local/tex/fonts
  116.   DEFAULT_FONT_SIZES=300:328.6:360:432:518.4:622:746.4
  117.   DEFINES=-DMSBITFIRST \
  118. !   -DBMSHORT
  119.   FONTDEFINES=-DDEFAULT_FONT_PATH=\"$(DEFAULT_FONT_PATH)\" \
  120.     -DDEFAULT_FONT_SIZES=\"$(DEFAULT_FONT_SIZES)\"
  121.   FONTFORMATS_C=gf.c pk.c pxl.c
  122.   FONTFORMATS_O=gf.o pk.o pxl.o
  123.   LIBDIR=/usr/custom/x11/lib
  124. ! #LIBDIR=/tuna_a/x11r3/lib
  125.   INCDIR=/usr/include
  126. ! #INCDIR=/tuna_a/x11r3/include
  127.   XMULIB=
  128.   #XMULIB=-lXmu
  129.   DESTDIR=/usr/local/x11
  130.   BINDIR=$(DESTDIR)/bin
  131.   MANDIR=$(DESTDIR)/man
  132.   INCLUDES=-I$(INCDIR)
  133.   CFLAGS=-O $(INCLUDES) $(DEFINES)
  134. ! LIBS=-L$(LIBDIR) -lXaw $(XMULIB) -lXt -lX11 -lm
  135.   SRCS=xdvi.c dvi_init.c dvi_draw.c $(FONTFORMATS_C) pxl_open.c tpic.c
  136.   OBJS=xdvi.o dvi_init.o dvi_draw.o $(FONTFORMATS_O) pxl_open.o tpic.o
  137.   CC=/tuna_a/gnu/bin/gcc
  138. --- 7,30 ----
  139.   DEFAULT_FONT_PATH=/usr/local/tex/fonts
  140.   DEFAULT_FONT_SIZES=300:328.6:360:432:518.4:622:746.4
  141.   DEFINES=-DMSBITFIRST \
  142. !   -DBMSHORT -DBUTTONS
  143.   FONTDEFINES=-DDEFAULT_FONT_PATH=\"$(DEFAULT_FONT_PATH)\" \
  144.     -DDEFAULT_FONT_SIZES=\"$(DEFAULT_FONT_SIZES)\"
  145.   FONTFORMATS_C=gf.c pk.c pxl.c
  146.   FONTFORMATS_O=gf.o pk.o pxl.o
  147.   LIBDIR=/usr/custom/x11/lib
  148. ! #LIBDIR=/tuna_a/x11r4/lib
  149.   INCDIR=/usr/include
  150. ! #INCDIR=/tuna_a/x11r4/include
  151.   XMULIB=
  152.   #XMULIB=-lXmu
  153. + EXTENSIONLIB=-lXext
  154.   DESTDIR=/usr/local/x11
  155.   BINDIR=$(DESTDIR)/bin
  156.   MANDIR=$(DESTDIR)/man
  157.   INCLUDES=-I$(INCDIR)
  158.   CFLAGS=-O $(INCLUDES) $(DEFINES)
  159. ! LIBS=-L$(LIBDIR) -lXaw $(XMULIB) -lXt $(EXTENSIONLIB) -lX11 -lm
  160.   SRCS=xdvi.c dvi_init.c dvi_draw.c $(FONTFORMATS_C) pxl_open.c tpic.c
  161.   OBJS=xdvi.o dvi_init.o dvi_draw.o $(FONTFORMATS_O) pxl_open.o tpic.o
  162.   CC=/tuna_a/gnu/bin/gcc
  163. ***************
  164. *** 48,58 ****
  165.   pxl_open.o:
  166.       $(CC) -c $(CFLAGS) $(FONTDEFINES) pxl_open.c
  167.   
  168. ! xdvi.man: xdvi.man.sed
  169.       chmod u+x mksedscript
  170.       mksedscript $(DEFAULT_FONT_PATH) $(DEFAULT_FONT_SIZES) $(DEFINES) \
  171.           > sedscript
  172. !     sed -f sedscript < xdvi.man.sed > xdvi.man
  173.   
  174.   install: xdvi xdvi.man
  175.       install -c -s -m 755 xdvi $(BINDIR)
  176. --- 49,59 ----
  177.   pxl_open.o:
  178.       $(CC) -c $(CFLAGS) $(FONTDEFINES) pxl_open.c
  179.   
  180. ! xdvi.man: xdvi_man.sed
  181.       chmod u+x mksedscript
  182.       mksedscript $(DEFAULT_FONT_PATH) $(DEFAULT_FONT_SIZES) $(DEFINES) \
  183.           > sedscript
  184. !     sed -f sedscript < xdvi_man.sed > xdvi.man
  185.   
  186.   install: xdvi xdvi.man
  187.       install -c -s -m 755 xdvi $(BINDIR)
  188. diff -cr old/Makefile_10 new/Makefile_10
  189. *** old/Makefile_10    Sun Mar 25 21:21:33 1990
  190. --- new/Makefile_10    Sun Mar 25 21:20:08 1990
  191. ***************
  192. *** 41,51 ****
  193.   pxl_open.o:
  194.       $(CC) -c $(CFLAGS) $(FONTDEFINES) pxl_open.c
  195.   
  196. ! xdvi.man: xdvi.man.sed
  197.       chmod u+x mksedscript
  198.       mksedscript $(DEFAULT_FONT_PATH) $(DEFAULT_FONT_SIZES) $(DEFINES) \
  199.           > sedscript
  200. !     sed -f sedscript < xdvi.man.sed > xdvi.man
  201.   
  202.   install: xdvi xdvi.man
  203.       install -c -s -m 755 xdvi $(BINDIR)
  204. --- 41,51 ----
  205.   pxl_open.o:
  206.       $(CC) -c $(CFLAGS) $(FONTDEFINES) pxl_open.c
  207.   
  208. ! xdvi.man: xdvi_man.sed
  209.       chmod u+x mksedscript
  210.       mksedscript $(DEFAULT_FONT_PATH) $(DEFAULT_FONT_SIZES) $(DEFINES) \
  211.           > sedscript
  212. !     sed -f sedscript < xdvi_man.sed > xdvi.man
  213.   
  214.   install: xdvi xdvi.man
  215.       install -c -s -m 755 xdvi $(BINDIR)
  216. diff -cr old/README new/README
  217. *** old/README    Sun Mar 25 21:21:34 1990
  218. --- new/README    Tue Mar 13 22:36:46 1990
  219. ***************
  220. *** 37,42 ****
  221. --- 37,43 ----
  222.               you use for storing fonts.
  223.       SYSV        (dvi_init pxl_open xdvi.c)  Set for System V
  224.               compilation.
  225. +     VMS        Set for VMS compilation.
  226.       MSBITFIRST    (X11 only; xdvi.c dvi_draw.c gf.c pk.c pxl.c)  Store
  227.               bitmaps internally with the most significant bit at
  228.               the left.  For performance reasons, it would be best
  229. ***************
  230. *** 174,178 ****
  231. --- 175,181 ----
  232.      20.  Added a yet more robust font finding algorithm.
  233.   --  Patchlevel 7:  --
  234.      21.  Replaced -pagewidth and -pageheight options with -paper.
  235. + --  Patchlevel 8:  --
  236. +    22.  Added compatibility for X11R4 and VMS.  Fixed up alignment of rules.
  237.   
  238.   Paul Vojta, vojta@math.berkeley.edu
  239. diff -cr old/VMS_C.OPT new/VMS_C.OPT
  240. *** old/VMS_C.OPT    Sun Mar 25 21:22:38 1990
  241. --- new/VMS_C.OPT    Sun Mar 11 21:54:51 1990
  242. ***************
  243. *** 0 ****
  244. --- 1,2 ----
  245. + sys$share:decw$xlibshr/share
  246. + sys$share:vaxcrtl/share
  247. diff -cr old/dvi_draw.c new/dvi_draw.c
  248. *** old/dvi_draw.c    Sun Mar 25 21:21:37 1990
  249. --- new/dvi_draw.c    Fri Mar 16 21:31:43 1990
  250. ***************
  251. *** 12,20 ****
  252. --- 12,22 ----
  253.    *            --Paul Vojta, UC Berkeley.
  254.    * 2/1989    Added tpic support    --Jeffrey Lee, U of Toronto
  255.    * 4/1989    Modified for System V by Donald Richardson, Clarkson Univ.
  256. +  * 3/1990    Added VMS support    --Scott Allendorf, U of Iowa
  257.    *
  258.    *    Compilation options:
  259.    *    SYSV    compile for System V
  260. +  *    VMS    compile for VMS
  261.    *    X10    compile for X10
  262.    *    NOTOOL    compile without toolkit (X11 only)
  263.    *    BUTTONS    compile with buttons on the side of the window (needs toolkit)
  264. ***************
  265. *** 30,40 ****
  266.   #include "xdvi.h"
  267.   #include "dvi.h"
  268.   
  269. ! #define X_PAGE_OFFSET    ROUNDUP(pixels_per_inch, shrink_factor)
  270. ! #define Y_PAGE_OFFSET    ROUNDUP(pixels_per_inch, shrink_factor)
  271.   
  272.   struct frame    *stack;
  273. ! int    stackp;
  274.   
  275.   #ifndef    BMLONG
  276.   #ifndef    BMSHORT
  277. --- 32,47 ----
  278.   #include "xdvi.h"
  279.   #include "dvi.h"
  280.   
  281. ! /*
  282. !  *    Explanation of the following constant:
  283. !  *    pixels_per_inch << 16:    one inch margin
  284. !  *    shrink_factor << 16:    one pixel page border
  285. !  *    shrink_factor << 15:    rounding for pixel_conv
  286. !  */
  287. ! #define PAGE_OFFSET    (pixels_per_inch << 16) + (shrink_factor * 3 << 15)
  288.   
  289.   struct frame    *stack;
  290. ! struct frame    *stackp;
  291.   
  292.   #ifndef    BMLONG
  293.   #ifndef    BMSHORT
  294. ***************
  295. *** 327,333 ****
  296.       int h, w;
  297.   {
  298.       /* (w,h) specifies lower left corner of rule box */
  299. !     put_rectangle(PXL_H, PXL_V - h, w, h, False);
  300.   }
  301.   
  302.   /**
  303. --- 334,340 ----
  304.       int h, w;
  305.   {
  306.       /* (w,h) specifies lower left corner of rule box */
  307. !     put_rectangle(PXL_H, PXL_V - h + 1, w, h, False);
  308.   }
  309.   
  310.   /**
  311. ***************
  312. *** 414,420 ****
  313.       /* Check for changes in dvi file. */
  314.       if (!check_dvi_file()) return;
  315.   
  316. !     put_border(0, 0, PAPER_WIDTH, PAPER_HEIGHT, 1);
  317.   
  318.       Fseek(dvi_file, page_offset[current_page], 0);
  319.       for (;;) {
  320. --- 421,428 ----
  321.       /* Check for changes in dvi file. */
  322.       if (!check_dvi_file()) return;
  323.   
  324. !     put_border(ROUNDUP(unshrunk_paper_w, shrink_factor) + 1,
  325. !         ROUNDUP(unshrunk_paper_h, shrink_factor) + 1, 1);
  326.   
  327.       Fseek(dvi_file, page_offset[current_page], 0);
  328.       for (;;) {
  329. ***************
  330. *** 459,487 ****
  331.   
  332.                   case BOP:
  333.                   Fseek(dvi_file, (long) 11*4, 1);
  334. !                 stackp = 0;
  335. !                 DVI_H = pxl2spell(X_PAGE_OFFSET);
  336. !                 DVI_V = pxl2spell(Y_PAGE_OFFSET);
  337. !                 PXL_V = Y_PAGE_OFFSET;
  338.                   WW = XX = YY = ZZ = 0;
  339.                   break;
  340.   
  341.                   case EOP:
  342. !                 if (stackp > 0)
  343. !                     oops("Stack not empty at EOP (%d)", stackp);
  344.                   return;
  345.   
  346.                   case PUSH:
  347.                   stackp++;
  348. !                 if (stackp > maxstack)
  349.                       oops("More PUSHes than were promised");
  350. !                 stack[stackp] = stack[stackp - 1];
  351.                   break;
  352.   
  353.                   case POP:
  354. !                 stackp--;
  355. !                 if (stackp < 0)
  356.                       oops("More POPs than PUSHes");
  357.                   break;
  358.   
  359.                   case RIGHT1:
  360. --- 467,495 ----
  361.   
  362.                   case BOP:
  363.                   Fseek(dvi_file, (long) 11*4, 1);
  364. !                 stackp = stack;
  365. !                 DVI_H = DVI_V = PAGE_OFFSET;
  366. !                 PXL_V = pixel_conv(PAGE_OFFSET);
  367.                   WW = XX = YY = ZZ = 0;
  368.                   break;
  369.   
  370.                   case EOP:
  371. !                 if (stackp > stack)
  372. !                     oops("Stack not empty at EOP (%d)",
  373. !                     stackp - stack);
  374.                   return;
  375.   
  376.                   case PUSH:
  377.                   stackp++;
  378. !                 if (stackp > stack + maxstack)
  379.                       oops("More PUSHes than were promised");
  380. !                 *stackp = stackp[-1];
  381.                   break;
  382.   
  383.                   case POP:
  384. !                 if (stackp <= stack)
  385.                       oops("More POPs than PUSHes");
  386. +                 stackp--;
  387.                   break;
  388.   
  389.                   case RIGHT1:
  390. diff -cr old/dvi_init.c new/dvi_init.c
  391. *** old/dvi_init.c    Sun Mar 25 21:21:39 1990
  392. --- new/dvi_init.c    Fri Mar 16 20:46:59 1990
  393. ***************
  394. *** 12,20 ****
  395. --- 12,22 ----
  396.    *            --Paul Vojta, UC Berkeley.
  397.    * 2/1989    Added tpic support    --Jeffrey Lee, U of Toronto
  398.    * 4/1989    Modified for System V by Donald Richardson, Clarkson Univ.
  399. +  * 3/1990    Added VMS support    --Scott Allendorf, U of Iowa
  400.    *
  401.    *    Compilation options:
  402.    *    SYSV    compile for System V
  403. +  *    VMS    compile for VMS
  404.    *    X10    compile for X10
  405.    *    NOTOOL    compile without toolkit (X11 only)
  406.    *    BUTTONS    compile with buttons on the side of the window (needs toolkit)
  407. ***************
  408. *** 238,245 ****
  409.                 ||  denominator != four(dvi_file)
  410.             ||  magnification != four(dvi_file))
  411.           dvi_oops("Postamble doesn't match preamble");
  412. !     (void) four(dvi_file);    /* page height */
  413. !     (void) four(dvi_file);    /* page width */
  414.       maxstack = two(dvi_file);
  415.       total_pages = two(dvi_file);
  416.       old_fonts = ¤t_font;
  417. --- 240,252 ----
  418.                 ||  denominator != four(dvi_file)
  419.             ||  magnification != four(dvi_file))
  420.           dvi_oops("Postamble doesn't match preamble");
  421. !         /* read largest box height and width */
  422. !     unshrunk_page_h = (spellfour(dvi_file) >> 16) + pixels_per_inch;
  423. !     if (unshrunk_page_h < unshrunk_paper_h)
  424. !         unshrunk_page_h = unshrunk_paper_h;
  425. !     unshrunk_page_w = (spellfour(dvi_file) >> 16) + pixels_per_inch;
  426. !     if (unshrunk_page_w < unshrunk_paper_w)
  427. !         unshrunk_page_w = unshrunk_paper_w;
  428.       maxstack = two(dvi_file);
  429.       total_pages = two(dvi_file);
  430.       old_fonts = ¤t_font;
  431. ***************
  432. *** 315,322 ****
  433.   
  434.   init_page()
  435.   {
  436. !     page_h = PAPER_HEIGHT;
  437. !     page_w = PAPER_WIDTH;
  438.   }
  439.   
  440.   /*
  441. --- 322,329 ----
  442.   
  443.   init_page()
  444.   {
  445. !     page_w = ROUNDUP(unshrunk_page_w, mane.shrinkfactor) + 2;
  446. !     page_h = ROUNDUP(unshrunk_page_h, mane.shrinkfactor) + 2;
  447.   }
  448.   
  449.   /*
  450. diff -cr old/mksedscript new/mksedscript
  451. *** old/mksedscript    Sun Mar 25 21:21:42 1990
  452. --- new/mksedscript    Tue Mar 13 21:52:41 1990
  453. ***************
  454. *** 22,25 ****
  455.   endif
  456.   echo    s\;%%DEFAULT_FONT_PATH%%\;$1\;
  457.   echo    s/%%DEFAULT_FONT_SIZES%%/$2/
  458. - rm -f xdvi10.man.s
  459. --- 22,24 ----
  460. diff -cr old/patchlevel.h new/patchlevel.h
  461. *** old/patchlevel.h    Sun Mar 25 21:21:42 1990
  462. --- new/patchlevel.h    Sun Feb 18 18:39:02 1990
  463. ***************
  464. *** 1 ****
  465. ! #define PATCHLEVEL 7
  466. --- 1 ----
  467. ! #define PATCHLEVEL 8
  468. diff -cr old/pxl_open.c new/pxl_open.c
  469. *** old/pxl_open.c    Sun Mar 25 21:21:47 1990
  470. --- new/pxl_open.c    Tue Mar 13 21:35:13 1990
  471. ***************
  472. *** 49,59 ****
  473. --- 49,71 ----
  474.   #include <errno.h>
  475.   extern    int    errno;
  476.   
  477. + #ifndef    VMS
  478.   #define    PATH_SEP    ':'
  479.   #define    DEFAULT_TAIL    "/%f.%d%p"
  480. + #else    VMS
  481. + #include <string.h>
  482. + #define    index    strchr
  483. + #define    rindex    strrchr
  484. + #define    PATH_SEP    '/'
  485. + #define    DEFAULT_TAIL    ":%f.%d%p"
  486. + #endif    VMS
  487.   
  488.   #ifndef    OPEN_MODE
  489. + #ifndef    VMS
  490.   #define    OPEN_MODE    "r"
  491. + #else    VMS
  492. + #define    OPEN_MODE    "r", "ctx=stm"
  493. + #endif    VMS
  494.   #endif    OPEN_MODE
  495.   
  496.   extern    int    n_fonts_left;
  497. diff -cr old/xdvi.c new/xdvi.c
  498. *** old/xdvi.c    Sun Mar 25 21:21:55 1990
  499. --- new/xdvi.c    Fri Mar 16 20:47:25 1990
  500. ***************
  501. *** 12,20 ****
  502. --- 12,22 ----
  503.    *            --Paul Vojta, UC Berkeley.
  504.    * 2/1989    Added tpic support    --Jeffrey Lee, U of Toronto
  505.    * 4/1989    Modified for System V by Donald Richardson, Clarkson Univ.
  506. +  * 3/1990    Added VMS support    --Scott Allendorf, U of Iowa
  507.    *
  508.    *    Compilation options:
  509.    *    SYSV    compile for System V
  510. +  *    VMS    compile for VMS
  511.    *    X10    compile for X10
  512.    *    NOTOOL    compile without toolkit (X11 only)
  513.    *    BUTTONS    compile with buttons on the side of the window (needs toolkit)
  514. ***************
  515. *** 70,84 ****
  516.   #include <X11/StringDefs.h>
  517.   #endif not OLD_X11_TOOLKIT
  518.   #include <X11/Shell.h>    /* needed for def. of XtNiconX */
  519.   #include <X11/Viewport.h>
  520.   #ifdef    BUTTONS
  521. - #include <X11/Form.h>
  522.   #include <X11/Command.h>
  523.   #endif    BUTTONS
  524.   #else    TOOLKIT
  525.   #define    XtNumber(arr)    (sizeof(arr)/sizeof(arr[0]))
  526.   typedef    int        Position;
  527. ! typedef    int        Dimension;
  528.   #ifndef X10
  529.   typedef    unsigned int    Pixel;
  530.   #define    XtPending()    XPending(DISP)
  531. --- 72,95 ----
  532.   #include <X11/StringDefs.h>
  533.   #endif not OLD_X11_TOOLKIT
  534.   #include <X11/Shell.h>    /* needed for def. of XtNiconX */
  535. + #ifndef    XtSpecificationRelease
  536. + #define    XtSpecificationRelease    0
  537. + #endif
  538. + #if    XtSpecificationRelease >= 4
  539. + #include <X11/Xaw/Viewport.h>
  540. + #ifdef    BUTTONS
  541. + #include <X11/Xaw/Command.h>
  542. + #endif    BUTTONS
  543. + #else    XtSpecificationRelease
  544.   #include <X11/Viewport.h>
  545.   #ifdef    BUTTONS
  546.   #include <X11/Command.h>
  547.   #endif    BUTTONS
  548. + #endif    XtSpecificationRelease
  549.   #else    TOOLKIT
  550.   #define    XtNumber(arr)    (sizeof(arr)/sizeof(arr[0]))
  551.   typedef    int        Position;
  552. ! typedef    unsigned int    Dimension;
  553.   #ifndef X10
  554.   typedef    unsigned int    Pixel;
  555.   #define    XtPending()    XPending(DISP)
  556. ***************
  557. *** 90,98 ****
  558.   
  559.   #include <stdio.h>
  560.   #include <ctype.h>
  561.   #include <fcntl.h>
  562.   #include <signal.h>
  563. ! #include "xdvi.h"
  564.   
  565.   #ifndef X10
  566.   static    Display    *DISP;
  567. --- 101,112 ----
  568.   
  569.   #include <stdio.h>
  570.   #include <ctype.h>
  571. + #include "xdvi.h"
  572. + 
  573. + #ifdef    HAS_SIGIO
  574.   #include <fcntl.h>
  575.   #include <signal.h>
  576. ! #endif    HAS_SIGIO
  577.   
  578.   #ifndef X10
  579.   static    Display    *DISP;
  580. ***************
  581. *** 99,106 ****
  582.   #define    DPY    DISP,
  583.   static    Screen    *SCRN;
  584.   static    Cursor    redraw_cursor, ready_cursor;
  585. ! #define    SetCursor(x)    XDefineCursor(DISP, mane.win, x)
  586. ! #define    ClearPage(wr)    XClearWindow(DISP, (wr).win);
  587.   #define    ClearArea(win, x, y, w, h)    XClearArea(DISP, win, x, y, w, h, False)
  588.   #define    DarkenArea(win, x, y, w, h) \
  589.               XFillRectangle(DISP, win, ruleGC, x, y, w, h)
  590. --- 113,120 ----
  591.   #define    DPY    DISP,
  592.   static    Screen    *SCRN;
  593.   static    Cursor    redraw_cursor, ready_cursor;
  594. ! #define    SetCursor(x)    XDefineCursor(DISP, WINDOW(mane), x)
  595. ! #define    ClearPage(wr)    XClearWindow(DISP, WINDOW(wr));
  596.   #define    ClearArea(win, x, y, w, h)    XClearArea(DISP, win, x, y, w, h, False)
  597.   #define    DarkenArea(win, x, y, w, h) \
  598.               XFillRectangle(DISP, win, ruleGC, x, y, w, h)
  599. ***************
  600. *** 115,121 ****
  601.   #define    DPY
  602.   #define    GC        int
  603.   #define    SetCursor(x)
  604. ! #define    ClearPage(wr)    XClear((wr).win);
  605.   #define    ClearArea(win, x, y, w, h)    XPixSet(win, x, y, w, h, backpix)
  606.   #define    DarkenArea(win, x, y, w, h)    XPixSet(win, x, y, w, h, foreGC)
  607.   #define    CopyArea(win, x, y, w, h, x2, y2) \
  608. --- 129,135 ----
  609.   #define    DPY
  610.   #define    GC        int
  611.   #define    SetCursor(x)
  612. ! #define    ClearPage(wr)    XClear(WINDOW(wr));
  613.   #define    ClearArea(win, x, y, w, h)    XPixSet(win, x, y, w, h, backpix)
  614.   #define    DarkenArea(win, x, y, w, h)    XPixSet(win, x, y, w, h, foreGC)
  615.   #define    CopyArea(win, x, y, w, h, x2, y2) \
  616. ***************
  617. *** 140,145 ****
  618. --- 154,160 ----
  619.   
  620.   int    density = 40;
  621.   int    pixels_per_inch = 300;
  622. + int    unshrunk_paper_w, unshrunk_paper_h;
  623.   int    unshrunk_page_w, unshrunk_page_h;
  624.   static    char    *paper        = DEFAULT_PAPER;
  625.   static    char    *margins, *sidemargin, *topmargin;
  626. ***************
  627. *** 240,254 ****
  628.       {XtNlabel,    (XtArgVal) ""},
  629.   };
  630.   
  631. - static    void    set_draw_args();
  632. - 
  633.   #ifdef    BUTTONS
  634. - static    Widget    form_widget;
  635. - 
  636.   static    Arg    form_args[] = {
  637.       {XtNdefaultDistance, (XtArgVal) 0},
  638.   };
  639.   
  640.   static    struct {
  641.       char    *label;
  642.       char    *name;
  643. --- 255,289 ----
  644.       {XtNlabel,    (XtArgVal) ""},
  645.   };
  646.   
  647.   #ifdef    BUTTONS
  648.   static    Arg    form_args[] = {
  649.       {XtNdefaultDistance, (XtArgVal) 0},
  650.   };
  651. + #define    XTRA_WID    79
  652.   
  653. + static    Arg    line_args[] = {
  654. +     {XtNbackground,    (XtArgVal) 0},
  655. +     {XtNwidth,    (XtArgVal) 1},
  656. +     {XtNheight,    (XtArgVal) 0},
  657. +     {XtNfromHoriz,    (XtArgVal) NULL},
  658. +     {XtNborderWidth, (XtArgVal) 0},
  659. +     {XtNtop,    (XtArgVal) XtChainTop},
  660. +     {XtNbottom,    (XtArgVal) XtChainBottom},
  661. +     {XtNleft,    (XtArgVal) XtChainRight},
  662. +     {XtNright,    (XtArgVal) XtChainRight},
  663. + };
  664. + 
  665. + static    Arg    right_args[] = {
  666. +     {XtNfromHoriz,    (XtArgVal) NULL},
  667. +     {XtNwidth,    (XtArgVal) (XTRA_WID - 1)},
  668. +     {XtNheight,    (XtArgVal) 0},
  669. +     {XtNborderWidth, (XtArgVal) 0},
  670. +     {XtNtop,    (XtArgVal) XtChainTop},
  671. +     {XtNbottom,    (XtArgVal) XtChainBottom},
  672. +     {XtNleft,    (XtArgVal) XtChainRight},
  673. +     {XtNright,    (XtArgVal) XtChainRight},
  674. + };
  675. + 
  676.   static    struct {
  677.       char    *label;
  678.       char    *name;
  679. ***************
  680. *** 269,276 ****
  681.           {"Page-10",    "prev10",    10 << 8 | 'p',    700},
  682.   };
  683.   
  684. - static    Widget    command_wid[XtNumber(command_table)];
  685. - 
  686.   static    void    handle_command();
  687.   
  688.   static    XtCallbackRec    command_call[] = {
  689. --- 304,309 ----
  690. ***************
  691. *** 280,320 ****
  692.   
  693.   static    Arg    command_args[] = {
  694.       {XtNlabel,    NULL},
  695. !     {XtNvertDistance, (XtArgVal) 0},
  696. !     {XtNfromHoriz,    (XtArgVal) NULL},
  697. !     {XtNhorizDistance, (XtArgVal) 7},
  698.       {XtNwidth,    (XtArgVal) 64},
  699.       {XtNheight,    (XtArgVal) 30},
  700. -     {XtNtop,    (XtArgVal) XtChainTop},
  701. -     {XtNbottom,    (XtArgVal) XtChainTop},
  702. -     {XtNleft,    (XtArgVal) XtChainRight},
  703. -     {XtNright,    (XtArgVal) XtChainRight},
  704.       {XtNcallback,    (XtArgVal) command_call},
  705.   };
  706. - 
  707. - static    Arg    line_args[] = {
  708. -     {XtNbackground,    (XtArgVal) 0},
  709. -     {XtNwidth,    (XtArgVal) 1},
  710. -     {XtNheight,    (XtArgVal) 0},
  711. -     {XtNfromHoriz,    (XtArgVal) NULL},
  712. -     {XtNborderWidth, (XtArgVal) 0},
  713. -     {XtNtop,    (XtArgVal) XtChainTop},
  714. -     {XtNbottom,    (XtArgVal) XtChainBottom},
  715. -     {XtNleft,    (XtArgVal) XtChainRight},
  716. -     {XtNright,    (XtArgVal) XtChainRight},
  717. - };
  718. - 
  719. - static    Arg    strut_args[] = {
  720. -     {XtNfromHoriz,    (XtArgVal) NULL},
  721. -     {XtNwidth,    (XtArgVal) 78},
  722. -     {XtNheight,    (XtArgVal) 2},
  723. -     {XtNmappedWhenManaged, (XtArgVal) False},
  724. -     {XtNborderWidth, (XtArgVal) 0},
  725. -     {XtNtop,    (XtArgVal) XtChainTop},
  726. -     {XtNbottom,    (XtArgVal) XtChainTop},
  727. -     {XtNleft,    (XtArgVal) XtChainRight},
  728. -     {XtNright,    (XtArgVal) XtChainRight},
  729. - };
  730.   #endif    BUTTONS
  731.   
  732.   #else    TOOLKIT
  733. --- 313,324 ----
  734.   
  735.   static    Arg    command_args[] = {
  736.       {XtNlabel,    NULL},
  737. !     {XtNx,        (XtArgVal) 6},
  738. !     {XtNy,        (XtArgVal) 0},
  739.       {XtNwidth,    (XtArgVal) 64},
  740.       {XtNheight,    (XtArgVal) 30},
  741.       {XtNcallback,    (XtArgVal) command_call},
  742.   };
  743.   #endif    BUTTONS
  744.   
  745.   #else    TOOLKIT
  746. ***************
  747. *** 359,365 ****
  748.   #ifdef    TOOLKIT
  749.   WidgetClass    viewportWidgetClass, widgetClass;
  750.   #ifdef    BUTTONS
  751. ! WidgetClass    formWidgetClass, commandWidgetClass;
  752.   #endif    BUTTONS
  753.   #endif    TOOLKIT
  754.   #else    X10
  755. --- 363,369 ----
  756.   #ifdef    TOOLKIT
  757.   WidgetClass    viewportWidgetClass, widgetClass;
  758.   #ifdef    BUTTONS
  759. ! WidgetClass    formWidgetClass, compositeWidgetClass, commandWidgetClass;
  760.   #endif    BUTTONS
  761.   #endif    TOOLKIT
  762.   #else    X10
  763. ***************
  764. *** 405,415 ****
  765.       if ((fcx < max_x || tcx < max_x) && (fcx >= min_x || tcx >= min_x) &&
  766.           (fcy < max_y || tcy < max_y) && (fcy >= min_y || tcy >= min_y))
  767.   #ifndef X10
  768. !         XDrawLine(DISP, curr.win, ruleGC,
  769.               fcx - curr.base_x, fcy - curr.base_y,
  770.               tcx - curr.base_x, tcy - curr.base_y);
  771.   #else X10
  772. !         XLine(curr.win,
  773.               fcx - curr.base_x, fcy - curr.base_y,
  774.               tcx - curr.base_x, tcy - curr.base_y,
  775.               1, 1, ruleGC, GXcopy, AllPlanes);
  776. --- 409,419 ----
  777.       if ((fcx < max_x || tcx < max_x) && (fcx >= min_x || tcx >= min_x) &&
  778.           (fcy < max_y || tcy < max_y) && (fcy >= min_y || tcy >= min_y))
  779.   #ifndef X10
  780. !         XDrawLine(DISP, WINDOW(curr), ruleGC,
  781.               fcx - curr.base_x, fcy - curr.base_y,
  782.               tcx - curr.base_x, tcy - curr.base_y);
  783.   #else X10
  784. !         XLine(WINDOW(curr),
  785.               fcx - curr.base_x, fcy - curr.base_y,
  786.               tcx - curr.base_x, tcy - curr.base_y,
  787.               1, 1, ruleGC, GXcopy, AllPlanes);
  788. ***************
  789. *** 427,436 ****
  790.   
  791.       if (cx < max_x && cx >= min_x && cy < max_y && cy >= min_y)
  792.   #ifndef X10
  793. !         XDrawPoint(DISP, curr.win, ruleGC,
  794.           cx - curr.base_x, cy - curr.base_y);
  795.   #else X10
  796. !         XPixSet((Window) curr.win, cx - curr.base_x, cy - curr.base_y,
  797.           1, 1, ruleGC);
  798.   #endif X10
  799.   }
  800. --- 431,440 ----
  801.   
  802.       if (cx < max_x && cx >= min_x && cy < max_y && cy >= min_y)
  803.   #ifndef X10
  804. !         XDrawPoint(DISP, WINDOW(curr), ruleGC,
  805.           cx - curr.base_x, cy - curr.base_y);
  806.   #else X10
  807. !         XPixSet(WINDOW(curr), cx - curr.base_x, cy - curr.base_y,
  808.           1, 1, ruleGC);
  809.   #endif X10
  810.   }
  811. ***************
  812. *** 458,467 ****
  813.       if (x < max_x && x + w >= min_x && y < max_y && y + h >= min_y) {
  814.           if (--event_counter == 0) read_events(False);
  815.   #ifndef X10
  816. !         XFillRectangle(DISP, (Window) curr.win, hl ? highGC : ruleGC,
  817.                      x - curr.base_x, y - curr.base_y, w?w:1, h?h:1);
  818.   #else X10
  819. !         XPixSet((Window) curr.win, x - curr.base_x, y - curr.base_y,
  820.               w?w:1, h?h:1, hl ? highGC : ruleGC);
  821.   #endif X10
  822.       }
  823. --- 462,471 ----
  824.       if (x < max_x && x + w >= min_x && y < max_y && y + h >= min_y) {
  825.           if (--event_counter == 0) read_events(False);
  826.   #ifndef X10
  827. !         XFillRectangle(DISP, WINDOW(curr), hl ? highGC : ruleGC,
  828.                      x - curr.base_x, y - curr.base_y, w?w:1, h?h:1);
  829.   #else X10
  830. !         XPixSet(WINDOW(curr), x - curr.base_x, y - curr.base_y,
  831.               w?w:1, h?h:1, hl ? highGC : ruleGC);
  832.   #endif X10
  833.       }
  834. ***************
  835. *** 482,498 ****
  836.           image->height = bitmap->h;
  837.           image->data = bitmap->bits;
  838.           image->bytes_per_line = bitmap->bytes_wide;
  839. !         XPutImage(DISP, curr.win, foreGC, image,
  840.               0, 0,
  841.               x - curr.base_x, y - curr.base_y,
  842.               bitmap->w, bitmap->h);
  843.           if (foreGC2)
  844. !             XPutImage(DISP, curr.win, foreGC2, image,
  845.               0, 0,
  846.               x - curr.base_x, y - curr.base_y,
  847.               bitmap->w, bitmap->h);
  848.   #else X10
  849. !         XBitmapBitsPut(curr.win, x - curr.base_x, y - curr.base_y,
  850.               bitmap->w, bitmap->h, bitmap->bits,
  851.               foreGC, backpix, NULL, GXfunc, AllPlanes);
  852.   #endif X10
  853. --- 486,502 ----
  854.           image->height = bitmap->h;
  855.           image->data = bitmap->bits;
  856.           image->bytes_per_line = bitmap->bytes_wide;
  857. !         XPutImage(DISP, WINDOW(curr), foreGC, image,
  858.               0, 0,
  859.               x - curr.base_x, y - curr.base_y,
  860.               bitmap->w, bitmap->h);
  861.           if (foreGC2)
  862. !             XPutImage(DISP, WINDOW(curr), foreGC2, image,
  863.               0, 0,
  864.               x - curr.base_x, y - curr.base_y,
  865.               bitmap->w, bitmap->h);
  866.   #else X10
  867. !         XBitmapBitsPut(WINDOW(curr), x - curr.base_x, y - curr.base_y,
  868.               bitmap->w, bitmap->h, bitmap->bits,
  869.               foreGC, backpix, NULL, GXfunc, AllPlanes);
  870.   #endif X10
  871. ***************
  872. *** 499,511 ****
  873.       }
  874.   }
  875.   
  876. ! put_border(x, y, w, h, t)
  877. !     int x, y, w, h, t;
  878.   {
  879. !     put_rectangle(x, y, w, t, True);
  880. !     put_rectangle(x, y, t, h, True);
  881. !     put_rectangle(x, y + h - t, w, t, True);
  882. !     put_rectangle(x + w - t, y, t, h, True);
  883.   }
  884.   
  885.   /*
  886. --- 503,515 ----
  887.       }
  888.   }
  889.   
  890. ! put_border(w, h, t)
  891. !     int w, h, t;
  892.   {
  893. !     put_rectangle(0, 0, w, t, True);    /* top */
  894. !     put_rectangle(w, 0, t, h, True);    /* right */
  895. !     put_rectangle(t, h, w, t, True);    /* bottom */
  896. !     put_rectangle(0, t, t, h, True);    /* left */
  897.   }
  898.   
  899.   /*
  900. ***************
  901. *** 530,536 ****
  902.       struct WindowRec *windowrec;
  903.       int    x, y, w, h;
  904.   {
  905. !     ClearArea((Window) windowrec->win, x, y, w, h);
  906.       expose(windowrec, x, y, w, h);
  907.   }
  908.   
  909. --- 534,540 ----
  910.       struct WindowRec *windowrec;
  911.       int    x, y, w, h;
  912.   {
  913. !     ClearArea(WINDOW(*windowrec), x, y, w, h);
  914.       expose(windowrec, x, y, w, h);
  915.   }
  916.   
  917. ***************
  918. *** 580,586 ****
  919.           windowrec->max_y = windowrec->height;
  920.       }
  921.       else {
  922. !         CopyArea(windowrec->win, x, y, ww, hh, x2, y2);
  923.           if (x > 0) clearexpose(windowrec, ww, 0, x, windowrec->height);
  924.           if (x2 > 0) clearexpose(windowrec, 0, 0, x2, windowrec->height);
  925.           if (y > 0) clearexpose(windowrec, 0, hh, windowrec->width, y);
  926. --- 584,590 ----
  927.           windowrec->max_y = windowrec->height;
  928.       }
  929.       else {
  930. !         CopyArea(WINDOW(*windowrec), x, y, ww, hh, x2, y2);
  931.           if (x > 0) clearexpose(windowrec, ww, 0, x, windowrec->height);
  932.           if (x2 > 0) clearexpose(windowrec, 0, 0, x2, windowrec->height);
  933.           if (y > 0) clearexpose(windowrec, 0, hh, windowrec->width, y);
  934. ***************
  935. *** 730,740 ****
  936.       else {        /* this stuff avoids flicker */
  937.           if (x_bgn < new_x_bgn)
  938.           ClearArea(x_bar, x_bgn, 1, new_x_bgn - x_bgn, BAR_WID);
  939. !         else if (x_bgn > new_x_bgn)
  940.           DarkenArea(x_bar, new_x_bgn, 1, x_bgn - new_x_bgn, BAR_WID);
  941.           if (new_x_end < x_end)
  942.           ClearArea(x_bar, new_x_end, 1, x_end - new_x_end, BAR_WID);
  943. !         else if (new_x_end > x_end)
  944.           DarkenArea(x_bar, x_end, 1, new_x_end - x_end, BAR_WID);
  945.       }
  946.       x_bgn = new_x_bgn;
  947. --- 734,744 ----
  948.       else {        /* this stuff avoids flicker */
  949.           if (x_bgn < new_x_bgn)
  950.           ClearArea(x_bar, x_bgn, 1, new_x_bgn - x_bgn, BAR_WID);
  951. !         else
  952.           DarkenArea(x_bar, new_x_bgn, 1, x_bgn - new_x_bgn, BAR_WID);
  953.           if (new_x_end < x_end)
  954.           ClearArea(x_bar, new_x_end, 1, x_end - new_x_end, BAR_WID);
  955. !         else
  956.           DarkenArea(x_bar, x_end, 1, new_x_end - x_end, BAR_WID);
  957.       }
  958.       x_bgn = new_x_bgn;
  959. ***************
  960. *** 754,764 ****
  961.       else {        /* this stuff avoids flicker */
  962.           if (y_bgn < new_y_bgn)
  963.           ClearArea(y_bar, 1, y_bgn, BAR_WID, new_y_bgn - y_bgn);
  964. !         else if (y_bgn > new_y_bgn)
  965.           DarkenArea(y_bar, 1, new_y_bgn, BAR_WID, y_bgn - new_y_bgn);
  966.           if (new_y_end < y_end)
  967.           ClearArea(y_bar, 1, new_y_end, BAR_WID, y_end - new_y_end);
  968. !         else if (new_y_end > y_end)
  969.           DarkenArea(y_bar, 1, y_end, BAR_WID, new_y_end - y_end);
  970.       }
  971.       y_bgn = new_y_bgn;
  972. --- 758,768 ----
  973.       else {        /* this stuff avoids flicker */
  974.           if (y_bgn < new_y_bgn)
  975.           ClearArea(y_bar, 1, y_bgn, BAR_WID, new_y_bgn - y_bgn);
  976. !         else
  977.           DarkenArea(y_bar, 1, new_y_bgn, BAR_WID, y_bgn - new_y_bgn);
  978.           if (new_y_end < y_end)
  979.           ClearArea(y_bar, 1, new_y_end, BAR_WID, y_end - new_y_end);
  980. !         else
  981.           DarkenArea(y_bar, 1, y_end, BAR_WID, new_y_end - y_end);
  982.       }
  983.       y_bgn = new_y_bgn;
  984. ***************
  985. *** 797,818 ****
  986.       if (mane.win == NULL) {    /* initial creation */
  987.   #ifndef X10
  988.           mane.win = (caddr_t) XCreateSimpleWindow(DISP, top_level,
  989. !             y_thick, x_thick, clip_w, clip_h, 0,
  990.               fore_Pixel, back_Pixel);
  991. !         XSelectInput(DPY (Window) mane.win, ExposureMask |
  992.               ButtonPressMask | ButtonMotionMask | ButtonReleaseMask);
  993.   #else X10
  994.           mane.win = (caddr_t) XCreateWindow(top_level,
  995.               y_thick, x_thick, clip_w, clip_h, 0,
  996.               bdrmap, backmap);
  997. !         XSelectInput((Window) mane.win,  ExposeRegion | ExposeCopy |
  998.               ButtonPressed | ButtonReleased |
  999.               LeftDownMotion | MiddleDownMotion | RightDownMotion);
  1000.   #endif X10
  1001. !         XMapWindow(DPY (Window) mane.win);
  1002.       }
  1003.       else
  1004. !         XMoveResizeWindow(DPY (Window) mane.win,
  1005.           y_thick, x_thick, clip_w, clip_h);
  1006.   
  1007.           /* process scroll bars */
  1008. --- 801,823 ----
  1009.       if (mane.win == NULL) {    /* initial creation */
  1010.   #ifndef X10
  1011.           mane.win = (caddr_t) XCreateSimpleWindow(DISP, top_level,
  1012. !             y_thick, x_thick,
  1013. !             (unsigned int) clip_w, (unsigned int) clip_h, 0,
  1014.               fore_Pixel, back_Pixel);
  1015. !         XSelectInput(DPY WINDOW(mane), ExposureMask |
  1016.               ButtonPressMask | ButtonMotionMask | ButtonReleaseMask);
  1017.   #else X10
  1018.           mane.win = (caddr_t) XCreateWindow(top_level,
  1019.               y_thick, x_thick, clip_w, clip_h, 0,
  1020.               bdrmap, backmap);
  1021. !         XSelectInput(WINDOW(mane),  ExposeRegion | ExposeCopy |
  1022.               ButtonPressed | ButtonReleased |
  1023.               LeftDownMotion | MiddleDownMotion | RightDownMotion);
  1024.   #endif X10
  1025. !         XMapWindow(DPY WINDOW(mane));
  1026.       }
  1027.       else
  1028. !         XMoveResizeWindow(DPY WINDOW(mane),
  1029.           y_thick, x_thick, clip_w, clip_h);
  1030.   
  1031.           /* process scroll bars */
  1032. ***************
  1033. *** 824,831 ****
  1034.           }
  1035.           else {
  1036.   #ifndef X10
  1037. !         x_bar = XCreateSimpleWindow(DISP, top_level,
  1038. !                 y_thick - 1, -1, clip_w, BAR_THICK - 1, 1,
  1039.                   fore_Pixel, back_Pixel);
  1040.           XSelectInput(DISP, x_bar,
  1041.               ExposureMask | ButtonPressMask | Button2MotionMask);
  1042. --- 829,836 ----
  1043.           }
  1044.           else {
  1045.   #ifndef X10
  1046. !         x_bar = XCreateSimpleWindow(DISP, top_level, y_thick - 1, -1,
  1047. !                 (unsigned int) clip_w, BAR_THICK - 1, 1,
  1048.                   fore_Pixel, back_Pixel);
  1049.           XSelectInput(DISP, x_bar,
  1050.               ExposureMask | ButtonPressMask | Button2MotionMask);
  1051. ***************
  1052. *** 855,862 ****
  1053.           }
  1054.           else {
  1055.   #ifndef X10
  1056. !         y_bar = XCreateSimpleWindow(DISP, top_level,
  1057. !                 -1, x_thick - 1, BAR_THICK - 1, clip_h, 1,
  1058.                   fore_Pixel, back_Pixel);
  1059.           XSelectInput(DISP, y_bar,
  1060.               ExposureMask | ButtonPressMask | Button2MotionMask);
  1061. --- 860,867 ----
  1062.           }
  1063.           else {
  1064.   #ifndef X10
  1065. !         y_bar = XCreateSimpleWindow(DISP, top_level, -1, x_thick - 1,
  1066. !                 BAR_THICK - 1, (unsigned int) clip_h, 1,
  1067.                   fore_Pixel, back_Pixel);
  1068.           XSelectInput(DISP, y_bar,
  1069.               ExposureMask | ButtonPressMask | Button2MotionMask);
  1070. ***************
  1071. *** 989,1002 ****
  1072.               InputOutput, CopyFromParent,
  1073.               CWSaveUnder | CWBorderPixel | CWBackPixel |
  1074.               CWOverrideRedirect, &attr);
  1075. !         XSelectInput(DISP, (Window) alt.win, ExposureMask);
  1076.   #else X10
  1077. !         alt.win = (caddr_t) XCreateWindow((Window) mane.win,
  1078.               x, y, alt.width, alt.height, MAGBORD,
  1079.               bdrmap, backmap);
  1080. !         XSelectInput((Window) alt.win, ExposeRegion);
  1081.   #endif X10
  1082. !         XMapWindow(DPY (Window) alt.win);
  1083.           alt_stat = 1;    /* waiting for exposure */
  1084.       }
  1085.   }
  1086. --- 994,1007 ----
  1087.               InputOutput, CopyFromParent,
  1088.               CWSaveUnder | CWBorderPixel | CWBackPixel |
  1089.               CWOverrideRedirect, &attr);
  1090. !         XSelectInput(DISP, WINDOW(alt), ExposureMask);
  1091.   #else X10
  1092. !         alt.win = (caddr_t) XCreateWindow(WINDOW(mane),
  1093.               x, y, alt.width, alt.height, MAGBORD,
  1094.               bdrmap, backmap);
  1095. !         XSelectInput(WINDOW(alt), ExposeRegion);
  1096.   #endif X10
  1097. !         XMapWindow(DPY WINDOW(alt));
  1098.           alt_stat = 1;    /* waiting for exposure */
  1099.       }
  1100.   }
  1101. ***************
  1102. *** 1027,1033 ****
  1103.       mag_y = y;
  1104.       if (mag_x == new_mag_x && mag_y == new_mag_y) mag_moved = False;
  1105.       compute_mag_pos(&xx, &yy);
  1106. !     XMoveWindow(DPY alt.win, xx, yy);
  1107.       scrollwindow(&alt, (x + mane_base_x) * mane.shrinkfactor - alt.width/2,
  1108.           (y + mane_base_y) * mane.shrinkfactor - alt.height/2);
  1109.   }
  1110. --- 1032,1038 ----
  1111.       mag_y = y;
  1112.       if (mag_x == new_mag_x && mag_y == new_mag_y) mag_moved = False;
  1113.       compute_mag_pos(&xx, &yy);
  1114. !     XMoveWindow(DPY WINDOW(alt), xx, yy);
  1115.       scrollwindow(&alt, (x + mane_base_x) * mane.shrinkfactor - alt.width/2,
  1116.           (y + mane_base_y) * mane.shrinkfactor - alt.height/2);
  1117.   }
  1118. ***************
  1119. *** 1047,1053 ****
  1120.       if (alt.win)
  1121.           if (alt_stat) alt_stat = -1;    /* destroy upon expose */
  1122.           else {
  1123. !         XDestroyWindow(DPY (Window) alt.win);
  1124.           if (curr.win == alt.win) alt_canit = True;
  1125.           alt.win = NULL;
  1126.           mag_moved = False;
  1127. --- 1052,1058 ----
  1128.       if (alt.win)
  1129.           if (alt_stat) alt_stat = -1;    /* destroy upon expose */
  1130.           else {
  1131. !         XDestroyWindow(DPY WINDOW(alt));
  1132.           if (curr.win == alt.win) alt_canit = True;
  1133.           alt.win = NULL;
  1134.           mag_moved = False;
  1135. ***************
  1136. *** 1115,1120 ****
  1137. --- 1120,1128 ----
  1138.       XEvent    *eventp;
  1139.   {
  1140.       int    next_page;
  1141. + #ifndef X10
  1142. +     Window    ww;
  1143. + #endif X10
  1144.   
  1145.       next_page = current_page;
  1146.       switch (ch) {
  1147. ***************
  1148. *** 1198,1210 ****
  1149.           case 'c':    /* unchecked scrollmane() */
  1150.           scrollwindow(&mane, mane.base_x + XKEY(*eventp).x - clip_w/2,
  1151.               mane.base_y + XKEY(*eventp).y - clip_h/2);
  1152. !         paint_x_bar();
  1153. !         paint_y_bar();
  1154.   #ifndef X10
  1155.           XWarpPointer(DISP, None, None, 0, 0, 0, 0,
  1156.               clip_w/2 - XKEY(*eventp).x, clip_h/2 - XKEY(*eventp).y);
  1157.   #else X10
  1158. !         XWarpMouse(mane.win, clip_w/2, clip_h/2, GXcopy);
  1159.   #endif X10
  1160.           return;
  1161.   #endif    TOOLKIT
  1162. --- 1206,1218 ----
  1163.           case 'c':    /* unchecked scrollmane() */
  1164.           scrollwindow(&mane, mane.base_x + XKEY(*eventp).x - clip_w/2,
  1165.               mane.base_y + XKEY(*eventp).y - clip_h/2);
  1166. !         if (x_bar) paint_x_bar();
  1167. !         if (y_bar) paint_y_bar();
  1168.   #ifndef X10
  1169.           XWarpPointer(DISP, None, None, 0, 0, 0, 0,
  1170.               clip_w/2 - XKEY(*eventp).x, clip_h/2 - XKEY(*eventp).y);
  1171.   #else X10
  1172. !         XWarpMouse(WINDOW(mane), clip_w/2, clip_h/2, GXcopy);
  1173.   #endif X10
  1174.           return;
  1175.   #endif    TOOLKIT
  1176. ***************
  1177. *** 1211,1219 ****
  1178.   
  1179.   #ifndef X10
  1180.           case 'M':
  1181. !         XTranslateCoordinates(DISP, eventp->xkey.window, mane.win,
  1182. !             eventp->xkey.x, eventp->xkey.y, &home_x, &home_y,
  1183. !             &number0);    /* throw away last argument */
  1184.           home_x *= mane.shrinkfactor;
  1185.           home_y *= mane.shrinkfactor;
  1186.           return;
  1187. --- 1219,1227 ----
  1188.   
  1189.   #ifndef X10
  1190.           case 'M':
  1191. !         XTranslateCoordinates(DISP, eventp->xkey.window,
  1192. !             WINDOW(mane), eventp->xkey.x, eventp->xkey.y,
  1193. !             &home_x, &home_y, &ww);    /* throw away last argument */
  1194.           home_x *= mane.shrinkfactor;
  1195.           home_y *= mane.shrinkfactor;
  1196.           return;
  1197. ***************
  1198. *** 1230,1247 ****
  1199.   #endif X10
  1200.           case 's':
  1201.           if (!arg0) {
  1202. !             long fac1, fac2;
  1203. !             shrink_factor = 1;
  1204. !             fac1 = ROUNDUP(PAPER_WIDTH, window_w);
  1205. !             fac2 = ROUNDUP(PAPER_HEIGHT, window_h);
  1206. !             if (fac1 < fac2)
  1207. !             number0 = fac2;
  1208. !             else
  1209. !             number0 = fac1;
  1210.           }
  1211.           if (number0 <= 0) goto bad;
  1212.           if (number0 == mane.shrinkfactor) return;
  1213. !         shrink_factor = mane.shrinkfactor = number0;
  1214.           init_page();
  1215.           if (number0 != 1 && number0 != bak_shrink) {
  1216.               bak_shrink = number0;
  1217. --- 1238,1251 ----
  1218.   #endif X10
  1219.           case 's':
  1220.           if (!arg0) {
  1221. !             int temp;
  1222. !             number0 = ROUNDUP(unshrunk_page_w, window_w - 2);
  1223. !             temp = ROUNDUP(unshrunk_page_h, window_h - 2);
  1224. !             if (number0 < temp) number0 = temp;
  1225.           }
  1226.           if (number0 <= 0) goto bad;
  1227.           if (number0 == mane.shrinkfactor) return;
  1228. !         mane.shrinkfactor = number0;
  1229.           init_page();
  1230.           if (number0 != 1 && number0 != bak_shrink) {
  1231.               bak_shrink = number0;
  1232. ***************
  1233. *** 1248,1259 ****
  1234.               reset_fonts();
  1235.           }
  1236.   #ifdef    TOOLKIT
  1237. !         XUnmapWindow(DISP, mane.win);
  1238. !         set_draw_args();
  1239. !         XtSetValues(draw_widget, draw_args, (Cardinal) 2);
  1240.           get_geom();
  1241.           home(False);
  1242. !         XMapWindow(DISP, (Window) mane.win);
  1243.           /* Wait for next event; this will likely be an expose event,
  1244.              so we don't redraw the window twice. */
  1245.           {
  1246. --- 1252,1269 ----
  1247.               reset_fonts();
  1248.           }
  1249.   #ifdef    TOOLKIT
  1250. !         XUnmapWindow(DISP, WINDOW(mane));
  1251. !         {
  1252. !             Dimension replyW, replyH;
  1253. !             if (XtMakeResizeRequest(draw_widget, (Dimension) page_w,
  1254. !                 (Dimension) page_h, &replyW, &replyH)
  1255. !                 == XtGeometryAlmost)
  1256. !             (void) XtMakeResizeRequest(draw_widget, replyW, replyH,
  1257. !                 (Dimension *) NULL, (Dimension *) NULL);
  1258. !         }
  1259.           get_geom();
  1260.           home(False);
  1261. !         XMapWindow(DISP, WINDOW(mane));
  1262.           /* Wait for next event; this will likely be an expose event,
  1263.              so we don't redraw the window twice. */
  1264.           {
  1265. ***************
  1266. *** 1330,1336 ****
  1267.   #ifdef    TOOLKIT
  1268.           XtNextEvent(&event);
  1269.           if (resized) get_geom();
  1270. !         if (event.xany.window == (Window) alt.win &&
  1271.               event.type == Expose) {
  1272.           handle_exp((Widget) NULL, &alt, &event.xexpose);
  1273.           continue;
  1274. --- 1340,1346 ----
  1275.   #ifdef    TOOLKIT
  1276.           XtNextEvent(&event);
  1277.           if (resized) get_geom();
  1278. !         if (event.xany.window == WINDOW(alt) &&
  1279.               event.type == Expose) {
  1280.           handle_exp((Widget) NULL, &alt, &event.xexpose);
  1281.           continue;
  1282. ***************
  1283. *** 1340,1357 ****
  1284.           continue;
  1285.           }
  1286.           string = trbuf;
  1287. !         nbytes = XLookupString(&event, string, TRSIZE, NULL, NULL);
  1288.           if (nbytes > 1) ch = '?';
  1289.           if (nbytes != 0) ch = *string;
  1290.   #else    TOOLKIT
  1291.   
  1292.           XNextEvent(DPY &event);
  1293. !         if (XANY(event).window == (Window) mane.win ||
  1294. !         XANY(event).window == (Window) alt.win) {
  1295.   
  1296.           struct WindowRec *wr = &mane;
  1297.   
  1298. !         if (XANY(event).window == (Window) alt.win) {
  1299.               wr = &alt;
  1300.               /* check in case we already destroyed the window */
  1301.               if (alt_stat < 0) { /* destroy upon exposure */
  1302. --- 1350,1367 ----
  1303.           continue;
  1304.           }
  1305.           string = trbuf;
  1306. !         nbytes = XLookupString(&event.xkey, string, TRSIZE, NULL, NULL);
  1307.           if (nbytes > 1) ch = '?';
  1308.           if (nbytes != 0) ch = *string;
  1309.   #else    TOOLKIT
  1310.   
  1311.           XNextEvent(DPY &event);
  1312. !         if (XANY(event).window == WINDOW(mane) ||
  1313. !         XANY(event).window == WINDOW(alt)) {
  1314.   
  1315.           struct WindowRec *wr = &mane;
  1316.   
  1317. !         if (XANY(event).window == WINDOW(alt)) {
  1318.               wr = &alt;
  1319.               /* check in case we already destroyed the window */
  1320.               if (alt_stat < 0) { /* destroy upon exposure */
  1321. ***************
  1322. *** 1480,1486 ****
  1323.           case KeyPress:
  1324.   #ifndef X10
  1325.               string = trbuf;
  1326. !             nbytes = XLookupString(&event, string, TRSIZE, NULL, NULL);
  1327.   #else X10
  1328.               string = XLookupMapping(&event, &nbytes);
  1329.   #endif X10
  1330. --- 1490,1497 ----
  1331.           case KeyPress:
  1332.   #ifndef X10
  1333.               string = trbuf;
  1334. !             nbytes = XLookupString(&event.xkey, string, TRSIZE, NULL,
  1335. !             NULL);
  1336.   #else X10
  1337.               string = XLookupMapping(&event, &nbytes);
  1338.   #endif X10
  1339. ***************
  1340. *** 1534,1545 ****
  1341.           ClearPage(mane);
  1342.   #ifndef X10
  1343.           get_xy();
  1344. !         XDrawString(DISP, mane.win, foreGC,
  1345.           5 - window_x, 5 + X11HEIGHT - window_y,
  1346.           errtext, strlen(errtext));
  1347.   #else X10
  1348.           if (!font) font = XOpenFont(X10FONT);
  1349. !         XTextMask(mane.win, 5, 5 + X10HEIGHT, errtext, strlen(errtext),
  1350.           font->id, foreGC);
  1351.   #endif X10
  1352.           if (dvi_file) {
  1353. --- 1545,1556 ----
  1354.           ClearPage(mane);
  1355.   #ifndef X10
  1356.           get_xy();
  1357. !         XDrawString(DISP, WINDOW(mane), foreGC,
  1358.           5 - window_x, 5 + X11HEIGHT - window_y,
  1359.           errtext, strlen(errtext));
  1360.   #else X10
  1361.           if (!font) font = XOpenFont(X10FONT);
  1362. !         XTextMask(WINDOW(mane), 5, 5 + X10HEIGHT, errtext, strlen(errtext),
  1363.           font->id, foreGC);
  1364.   #endif X10
  1365.           if (dvi_file) {
  1366. ***************
  1367. *** 1703,1710 ****
  1368.   {"-margins",    ".margins",    XrmoptionSepArg,    (caddr_t) NULL},
  1369.   {"-sidemargin",    ".sideMargin",    XrmoptionSepArg,    (caddr_t) NULL},
  1370.   {"-topmargin",    ".topMargin",    XrmoptionSepArg,    (caddr_t) NULL},
  1371. ! {"-pagewidth",    ".pageWidth",    XrmoptionSepArg,    (caddr_t) NULL},
  1372. ! {"-pageheight",    ".pageHeight",    XrmoptionSepArg,    (caddr_t) NULL},
  1373.   {"-altfont",    ".altFont",    XrmoptionSepArg,    (caddr_t) NULL},
  1374.   {"-l",        ".listFonts",    XrmoptionNoArg,        (caddr_t) "on"},
  1375.   {"+l",        ".listFonts",    XrmoptionNoArg,        (caddr_t) "off"},
  1376. --- 1714,1720 ----
  1377.   {"-margins",    ".margins",    XrmoptionSepArg,    (caddr_t) NULL},
  1378.   {"-sidemargin",    ".sideMargin",    XrmoptionSepArg,    (caddr_t) NULL},
  1379.   {"-topmargin",    ".topMargin",    XrmoptionSepArg,    (caddr_t) NULL},
  1380. ! {"-paper",    ".paper",    XrmoptionSepArg,    (caddr_t) NULL},
  1381.   {"-altfont",    ".altFont",    XrmoptionSepArg,    (caddr_t) NULL},
  1382.   {"-l",        ".listFonts",    XrmoptionNoArg,        (caddr_t) "on"},
  1383.   {"+l",        ".listFonts",    XrmoptionNoArg,        (caddr_t) "off"},
  1384. ***************
  1385. *** 1786,1797 ****
  1386.     (Cardinal) &mg_size[4], XtRInt, (caddr_t) &mg_size[4]},
  1387.   };
  1388.   
  1389. - static    void
  1390. - set_draw_args() {
  1391. -     draw_args[0].value = (XtArgVal) page_w;
  1392. -     draw_args[1].value = (XtArgVal) page_h;
  1393. - }
  1394. - 
  1395.   static    Arg    temp_args1[] = {
  1396.       {XtNiconX,    (XtArgVal) 0},
  1397.       {XtNiconY,    (XtArgVal) 0},
  1398. --- 1796,1801 ----
  1399. ***************
  1400. *** 1861,1868 ****
  1401.   {"-margins",    "margins",    SepArg,    StringArg,    (caddr_t) &margins},
  1402.   {"-sidemargin",    "sideMargin",    SepArg,    StringArg,    (caddr_t) &sidemargin},
  1403.   {"-topmargin",    "topMargin",    SepArg,    StringArg,    (caddr_t) &topmargin},
  1404. - {"-altfont",    "altFont",    SepArg,    StringArg,    (caddr_t) &alt_font},
  1405.   {"-paper",    "paper",    SepArg,    StringArg,    (caddr_t) &paper},
  1406.   {"-l",        "listFonts",    TrueArg, BooleanArg,    (caddr_t) &list_fonts},
  1407.   {"+l",        NULL,        FalseArg, BooleanArg,    (caddr_t) &list_fonts},
  1408.   {"-rv",        "reverseVideo",    TrueArg, BooleanArg,    (caddr_t) &reverse},
  1409. --- 1865,1872 ----
  1410.   {"-margins",    "margins",    SepArg,    StringArg,    (caddr_t) &margins},
  1411.   {"-sidemargin",    "sideMargin",    SepArg,    StringArg,    (caddr_t) &sidemargin},
  1412.   {"-topmargin",    "topMargin",    SepArg,    StringArg,    (caddr_t) &topmargin},
  1413.   {"-paper",    "paper",    SepArg,    StringArg,    (caddr_t) &paper},
  1414. + {"-altfont",    "altFont",    SepArg,    StringArg,    (caddr_t) &alt_font},
  1415.   {"-l",        "listFonts",    TrueArg, BooleanArg,    (caddr_t) &list_fonts},
  1416.   {"+l",        NULL,        FalseArg, BooleanArg,    (caddr_t) &list_fonts},
  1417.   {"-rv",        "reverseVideo",    TrueArg, BooleanArg,    (caddr_t) &reverse},
  1418. ***************
  1419. *** 2073,2079 ****
  1420.       char    **p;
  1421.       char    *q;
  1422.   
  1423. !     if (strlen(paper) > 20) return False;
  1424.       i = 0;
  1425.       for (;;) {    /* convert to lower case */
  1426.           c = paper[i];
  1427. --- 2077,2083 ----
  1428.       char    **p;
  1429.       char    *q;
  1430.   
  1431. !     if (strlen(paper) > sizeof(temp) - 1) return False;
  1432.       i = 0;
  1433.       for (;;) {    /* convert to lower case */
  1434.           c = paper[i];
  1435. ***************
  1436. *** 2086,2091 ****
  1437. --- 2090,2096 ----
  1438.       for (p = paper_types; p < paper_types + XtNumber(paper_types); p += 2)
  1439.           if (strcmp(temp, *p) == 0) {
  1440.           (void) strcpy(temp, p[1]);
  1441. +         i = strlen(temp);
  1442.           break;
  1443.           }
  1444.       if (i > 2 && strcmp(temp + i - 2, "cm") == 0) {
  1445. ***************
  1446. *** 2096,2104 ****
  1447.       if (q == NULL) return False;
  1448.       *q = '\0';
  1449.       factor *= pixels_per_inch;
  1450. !     unshrunk_page_w = atof(temp) * factor + 0.5;
  1451. !     unshrunk_page_h = atof(q + 1) * factor + 0.5;
  1452. !     return (unshrunk_page_w != 0 && unshrunk_page_h != 0);
  1453.   }
  1454.   
  1455.   /*
  1456. --- 2101,2109 ----
  1457.       if (q == NULL) return False;
  1458.       *q = '\0';
  1459.       factor *= pixels_per_inch;
  1460. !     unshrunk_paper_w = atof(temp) * factor + 0.5;
  1461. !     unshrunk_paper_h = atof(q + 1) * factor + 0.5;
  1462. !     return (unshrunk_paper_w != 0 && unshrunk_paper_h != 0);
  1463.   }
  1464.   
  1465.   /*
  1466. ***************
  1467. *** 2110,2116 ****
  1468.       char **argv;
  1469.   {
  1470.   
  1471. ! #ifndef    TOOLKIT
  1472.   #ifndef X10
  1473.       XSizeHints    size_hints;
  1474.       XWMHints    wmhints;
  1475. --- 2115,2124 ----
  1476.       char **argv;
  1477.   {
  1478.   
  1479. ! #ifdef    TOOLKIT
  1480. !     Widget    form_widget;
  1481. !     Widget    right_widget;
  1482. ! #else    TOOLKIT
  1483.   #ifndef X10
  1484.       XSizeHints    size_hints;
  1485.       XWMHints    wmhints;
  1486. ***************
  1487. *** 2124,2132 ****
  1488. --- 2132,2148 ----
  1489.   #endif    TOOLKIT
  1490.       int    screen_w, screen_h;
  1491.   
  1492. + #ifndef    VMS
  1493.       prog = rindex(*argv, '/');
  1494. + #else
  1495. +     prog = rindex(*argv, ']');
  1496. + #endif
  1497.       if (prog != NULL) ++prog; else prog = *argv;
  1498.   
  1499. + #ifdef    VMS
  1500. +     if (index(prog, '.') != NULL) *index(prog, '.') = '\0';
  1501. + #endif
  1502. + 
  1503.   #ifdef    TOOLKIT
  1504.       top_level = XtInitialize(prog, "XDvi", options, XtNumber(options),
  1505.           &argc, argv);
  1506. ***************
  1507. *** 2243,2249 ****
  1508.           scr++);
  1509.   
  1510.           XGeometry(DISP, scr, icon_geometry, "", 0, 0, 0, 0, 0,
  1511. !               &temp_args1[0].value, &temp_args1[1].value, &junk, &junk);
  1512.           XtSetValues(top_level, temp_args1, XtNumber(temp_args1));
  1513.       }
  1514.           /* Set default window size and icon */
  1515. --- 2259,2266 ----
  1516.           scr++);
  1517.   
  1518.           XGeometry(DISP, scr, icon_geometry, "", 0, 0, 0, 0, 0,
  1519. !             (int *) &temp_args1[0].value,
  1520. !             (int *) &temp_args1[1].value, &junk, &junk);
  1521.           XtSetValues(top_level, temp_args1, XtNumber(temp_args1));
  1522.       }
  1523.           /* Set default window size and icon */
  1524. ***************
  1525. *** 2251,2258 ****
  1526.       screen_w = WidthOfScreen(SCRN) - 2*bwidth;
  1527.       screen_h = HeightOfScreen(SCRN) - 2*bwidth;
  1528.   #ifdef    BUTTONS
  1529. !     temp_args3[0].value = (XtArgVal) (page_w + 100 < screen_w ?
  1530. !                       page_w + 100 : screen_w);
  1531.   #else    BUTTONS
  1532.       temp_args3[0].value = (XtArgVal) (page_w<screen_w ? page_w : screen_w);
  1533.   #endif    BUTTONS
  1534. --- 2268,2275 ----
  1535.       screen_w = WidthOfScreen(SCRN) - 2*bwidth;
  1536.       screen_h = HeightOfScreen(SCRN) - 2*bwidth;
  1537.   #ifdef    BUTTONS
  1538. !     temp_args3[0].value = (XtArgVal) (page_w + XTRA_WID < screen_w ?
  1539. !                       page_w + XTRA_WID : screen_w);
  1540.   #else    BUTTONS
  1541.       temp_args3[0].value = (XtArgVal) (page_w<screen_w ? page_w : screen_w);
  1542.   #endif    BUTTONS
  1543. ***************
  1544. *** 2266,2272 ****
  1545.       form_widget = XtCreateManagedWidget("form", formWidgetClass,
  1546.           top_level, form_args, XtNumber(form_args));
  1547.   
  1548. !     vport_args[0].value = temp_args3[0].value - 79;
  1549.       vport_args[1].value = temp_args3[1].value;
  1550.       vport_widget = XtCreateManagedWidget("vport", viewportWidgetClass,
  1551.           form_widget, vport_args, XtNumber(vport_args));
  1552. --- 2283,2289 ----
  1553.       form_widget = XtCreateManagedWidget("form", formWidgetClass,
  1554.           top_level, form_args, XtNumber(form_args));
  1555.   
  1556. !     vport_args[0].value = temp_args3[0].value - XTRA_WID;
  1557.       vport_args[1].value = temp_args3[1].value;
  1558.       vport_widget = XtCreateManagedWidget("vport", viewportWidgetClass,
  1559.           form_widget, vport_args, XtNumber(vport_args));
  1560. ***************
  1561. *** 2274,2283 ****
  1562.       line_args[0].value = (XtArgVal) high_color ? hl_Pixel : fore_Pixel;
  1563.       line_args[2].value = temp_args3[1].value;
  1564.       line_args[3].value = (XtArgVal) vport_widget;
  1565. !     strut_args[0].value = (XtArgVal) XtCreateManagedWidget("line",
  1566.           widgetClass, form_widget, line_args, XtNumber(line_args));
  1567. !     (void) XtCreateManagedWidget("strut", widgetClass, form_widget,
  1568. !         strut_args, XtNumber(strut_args));
  1569.   
  1570.       command_args[2].value = (XtArgVal) vport_widget;
  1571.       {
  1572. --- 2291,2301 ----
  1573.       line_args[0].value = (XtArgVal) high_color ? hl_Pixel : fore_Pixel;
  1574.       line_args[2].value = temp_args3[1].value;
  1575.       line_args[3].value = (XtArgVal) vport_widget;
  1576. !     right_args[0].value = (XtArgVal) XtCreateManagedWidget("line",
  1577.           widgetClass, form_widget, line_args, XtNumber(line_args));
  1578. !     right_args[2].value = temp_args3[1].value;
  1579. !     right_widget = XtCreateManagedWidget("right", compositeWidgetClass,
  1580. !         form_widget, right_args, XtNumber(right_args));
  1581.   
  1582.       command_args[2].value = (XtArgVal) vport_widget;
  1583.       {
  1584. ***************
  1585. *** 2284,2293 ****
  1586.           int i;
  1587.           for (i = 0; i < XtNumber(command_table); ++i) {
  1588.           command_args[0].value = (XtArgVal) command_table[i].label;
  1589. !         command_args[1].value = (XtArgVal) command_table[i].y_pos;
  1590.           command_call[0].closure = (caddr_t) command_table[i].closure;
  1591. !         command_wid[i] = XtCreateManagedWidget(command_table[i].name,
  1592. !             commandWidgetClass, form_widget,
  1593.               command_args, XtNumber(command_args));
  1594.           }
  1595.       }
  1596. --- 2302,2311 ----
  1597.           int i;
  1598.           for (i = 0; i < XtNumber(command_table); ++i) {
  1599.           command_args[0].value = (XtArgVal) command_table[i].label;
  1600. !         command_args[2].value = (XtArgVal) command_table[i].y_pos;
  1601.           command_call[0].closure = (caddr_t) command_table[i].closure;
  1602. !         (void) XtCreateManagedWidget(command_table[i].name,
  1603. !             commandWidgetClass, right_widget,
  1604.               command_args, XtNumber(command_args));
  1605.           }
  1606.       }
  1607. ***************
  1608. *** 2296,2302 ****
  1609.           top_level, vport_args, XtNumber(vport_args));
  1610.   #endif    BUTTONS
  1611.       clip_widget = XtNameToWidget(vport_widget, "clip");
  1612. !     set_draw_args();
  1613.       draw_widget = XtCreateManagedWidget("drawing", widgetClass,
  1614.           vport_widget, draw_args, XtNumber(draw_args));
  1615.       if (fore_color) XtSetValues(draw_widget, &fore_args, 1);
  1616. --- 2314,2321 ----
  1617.           top_level, vport_args, XtNumber(vport_args));
  1618.   #endif    BUTTONS
  1619.       clip_widget = XtNameToWidget(vport_widget, "clip");
  1620. !     draw_args[0].value = (XtArgVal) page_w;
  1621. !     draw_args[1].value = (XtArgVal) page_h;
  1622.       draw_widget = XtCreateManagedWidget("drawing", widgetClass,
  1623.           vport_widget, draw_args, XtNumber(draw_args));
  1624.       if (fore_color) XtSetValues(draw_widget, &fore_args, 1);
  1625. ***************
  1626. *** 2364,2370 ****
  1627.       XSetStandardProperties(DISP, top_level, dvi_name, prog, NULL,
  1628.           argv, argc, &size_hints);
  1629.   
  1630. !     wmhints.flags = StateHint | IconPixmapHint;
  1631.       wmhints.initial_state = iconic ? IconicState : NormalState;
  1632.       wmhints.icon_pixmap = XCreateBitmapFromData(DISP,
  1633.                   RootWindowOfScreen(SCRN),
  1634. --- 2383,2390 ----
  1635.       XSetStandardProperties(DISP, top_level, dvi_name, prog, NULL,
  1636.           argv, argc, &size_hints);
  1637.   
  1638. !     wmhints.flags = InputHint | StateHint | IconPixmapHint;
  1639. !     wmhints.input = True;    /* window manager must direct input */
  1640.       wmhints.initial_state = iconic ? IconicState : NormalState;
  1641.       wmhints.icon_pixmap = XCreateBitmapFromData(DISP,
  1642.                   RootWindowOfScreen(SCRN),
  1643. diff -cr old/xdvi.h new/xdvi.h
  1644. *** old/xdvi.h    Sun Mar 25 21:21:57 1990
  1645. --- new/xdvi.h    Fri Mar 16 21:32:05 1990
  1646. ***************
  1647. *** 9,16 ****
  1648.   #include <sys/types.h>    /* for sites without X11 */
  1649.   #ifdef    SYSV
  1650.   #include <string.h>
  1651. ! #define index strchr
  1652. ! #define rindex strrchr
  1653.   #include <fcntl.h>
  1654.   #else /* SYSV */
  1655.   #include <strings.h>
  1656. --- 9,16 ----
  1657.   #include <sys/types.h>    /* for sites without X11 */
  1658.   #ifdef    SYSV
  1659.   #include <string.h>
  1660. ! #define    index    strchr
  1661. ! #define    rindex    strrchr
  1662.   #include <fcntl.h>
  1663.   #else /* SYSV */
  1664.   #include <strings.h>
  1665. ***************
  1666. *** 18,26 ****
  1667. --- 18,39 ----
  1668.   #include <sys/file.h>
  1669.   #endif X10
  1670.   
  1671. + #ifdef    VMS
  1672. + #include <string.h>
  1673. + #define    index    strchr
  1674. + #define    rindex    strrchr
  1675. + #define    bzero(a, b)    (void) memset ((void *) (a), 0, (size_t) (b))
  1676. + #endif
  1677. + 
  1678.   #include <setjmp.h>
  1679.   
  1680. + #ifndef    OPEN_MODE
  1681. + #ifndef    VMS
  1682.   #define    OPEN_MODE    "r"
  1683. + #else    VMS
  1684. + #define    OPEN_MODE    "r", "ctx=stm"
  1685. + #endif    VMS
  1686. + #endif    OPEN_MODE
  1687.   
  1688.   #define    Printf    (void) printf
  1689.   #define    Fprintf    (void) fprintf
  1690. ***************
  1691. *** 46,56 ****
  1692.   
  1693.   #define    MAXDIM        32767
  1694.   
  1695. ! #define    pixel_conv(x)    ((int) (((x) / shrink_factor) >> 16))
  1696. ! #define    pixel_round(x)    ((int) (((x) / shrink_factor + (1<<15)) >> 16))
  1697.   #define    spellfour(f)    ((long) (sfour(f) * fraction))
  1698.   #define    spellnum(f,n)    ((long) (snum(f,n) * fraction))
  1699. - #define    pxl2spell(x)    (((long) (x)) * shrink_factor << 16)
  1700.   
  1701.   #ifdef X10
  1702.   #undef    MSBITFIRST
  1703. --- 59,75 ----
  1704.   
  1705.   #define    MAXDIM        32767
  1706.   
  1707. ! /*
  1708. !  *    pixel_conv is currently used only for converting absolute positions
  1709. !  *    to pixel values; although normally it should be
  1710. !  *        ((int) ((x) / shrink_factor + (1 << 15) >> 16)),
  1711. !  *    the rounding is achieved instead by moving the constant 1 << 15 to
  1712. !  *    PAGE_OFFSET in dvi_draw.c.
  1713. !  */
  1714. ! #define    pixel_conv(x)    ((int) ((x) / shrink_factor >> 16))
  1715. ! #define    pixel_round(x)    ((int) ROUNDUP(x, shrink_factor << 16))
  1716.   #define    spellfour(f)    ((long) (sfour(f) * fraction))
  1717.   #define    spellnum(f,n)    ((long) (snum(f,n) * fraction))
  1718.   
  1719.   #ifdef X10
  1720.   #undef    MSBITFIRST
  1721. ***************
  1722. *** 58,68 ****
  1723.   #define    BMSHORT
  1724.   #endif X10
  1725.   
  1726. ! #ifdef    SYSV
  1727. ! #define    ANSI_LIB
  1728. ! #else
  1729.   #define    HAS_SIGIO        /* has SIGIO on _sockets_ */
  1730.   #endif
  1731.   
  1732.   #ifdef    BMLONG
  1733.   #define    BMUNIT            unsigned long
  1734. --- 77,87 ----
  1735.   #define    BMSHORT
  1736.   #endif X10
  1737.   
  1738. ! #ifndef    SYSV
  1739. ! #ifndef    VMS
  1740.   #define    HAS_SIGIO        /* has SIGIO on _sockets_ */
  1741.   #endif
  1742. + #endif
  1743.   
  1744.   #ifdef    BMLONG
  1745.   #define    BMUNIT            unsigned long
  1746. ***************
  1747. *** 91,114 ****
  1748.   };
  1749.   
  1750.   extern    struct frame     *stack;
  1751. ! extern    int    stackp;
  1752.   
  1753.   /* entries below with the characters 'dvi' in them are actually stored in
  1754.      scaled pixel units */
  1755.   
  1756. ! #define DVI_H   stack[stackp].dvi_h
  1757. ! #define PXL_H   pixel_conv(stack[stackp].dvi_h)
  1758. ! #define DVI_V   stack[stackp].dvi_v
  1759. ! #define PXL_V   stack[stackp].pxl_v
  1760. ! #define WW      stack[stackp].w
  1761. ! #define XX      stack[stackp].x
  1762. ! #define YY      stack[stackp].y
  1763. ! #define ZZ      stack[stackp].z
  1764.   #define ROUNDUP(x,y) (((x)+(y)-1)/(y))
  1765.   
  1766. - #define    PAPER_WIDTH    ROUNDUP(unshrunk_page_w, shrink_factor)
  1767. - #define    PAPER_HEIGHT    ROUNDUP(unshrunk_page_h, shrink_factor)
  1768. - 
  1769.   extern    int    current_page;
  1770.   extern    int    total_pages;
  1771.   extern    double    fraction;
  1772. --- 110,130 ----
  1773.   };
  1774.   
  1775.   extern    struct frame     *stack;
  1776. ! extern    struct frame     *stackp;
  1777.   
  1778.   /* entries below with the characters 'dvi' in them are actually stored in
  1779.      scaled pixel units */
  1780.   
  1781. ! #define DVI_H   stackp->dvi_h
  1782. ! #define PXL_H   pixel_conv(stackp->dvi_h)
  1783. ! #define DVI_V   stackp->dvi_v
  1784. ! #define PXL_V   stackp->pxl_v
  1785. ! #define WW      stackp->w
  1786. ! #define XX      stackp->x
  1787. ! #define YY      stackp->y
  1788. ! #define ZZ      stackp->z
  1789.   #define ROUNDUP(x,y) (((x)+(y)-1)/(y))
  1790.   
  1791.   extern    int    current_page;
  1792.   extern    int    total_pages;
  1793.   extern    double    fraction;
  1794. ***************
  1795. *** 210,215 ****
  1796. --- 226,232 ----
  1797.   extern    Boolean    list_fonts;
  1798.   
  1799.   extern    int    pixels_per_inch;
  1800. + extern    int    unshrunk_paper_w, unshrunk_paper_h;
  1801.   extern    int    unshrunk_page_w, unshrunk_page_h;
  1802.   extern    int    density;
  1803.   
  1804. ***************
  1805. *** 225,230 ****
  1806. --- 242,248 ----
  1807.       int    min_x, max_x, min_y, max_y;    /* for pending expose events */
  1808.   } mane, alt, curr;
  1809.   
  1810. + #define    WINDOW(wr)    ((Window) (wr).win)
  1811.   #define    shrink_factor    curr.shrinkfactor
  1812.   
  1813.   jmp_buf    dvi_env;        /* mechanism to communicate dvi file errors */
  1814.  
  1815. dan
  1816. -----------------------------------------------------------
  1817.             O'Reilly && Associates
  1818.         argv@sun.com / argv@ora.com
  1819.        632 Petaluma Ave, Sebastopol, CA 95472 
  1820.      800-338-NUTS, in CA: 800-533-NUTS, FAX 707-829-0104
  1821.     Opinions expressed reflect those of the author only.
  1822.